home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
mrcry204.zip
/
DERIV.EKA
< prev
next >
Wrap
Text File
|
1991-03-04
|
270b
|
12 lines
; Demo of symbolic derivatives.
; x is deliberately left undefined, so Mercury will not be able to simplify
; to a real value.
f(x) := EXP(x SIN(x))
a = deriv(f(x),x)
; numerical derivatives
b = deriv(f(y),y)
c = (f(y + eps) - f(y)) / eps
eps = 1e-10
y = 1